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MODULE LIBSVM ( 'y yirtuel memor 
IDENT = "2-046" | File: LIBVM.B32 

BEGIN - 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


it pe SOFTWARE IS FURNISHED rynoee A LICENSE AND MAY BE USED A 
:® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILAB 
:# OTHER PERSON. NO TITLE 7O AND OWNERSHIP OF THE SOFTWARE I 


'# TRANSFERRED. 


it pe INFORMATION IN THIS SOFTWARE IS SU 
ie SHOULD NOT BE CONSTRUED AS AC 
ft CORPORATION. 


ix DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


BJECT T 
OMMITMENT BY DIGITAL EQ 


BILIT 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
i 


ee 
FACILITY: Resource allocation Library 


! ABSTRACT: Dynamic virtual memory allocation and deallocation. 
Pynentc virtual memory allocation and deallocation. 


ated. 
i ENVIRONMENT: User access mode; mixture of AST Level or not. 


this facility, allocation conf elim 


i 
' 
' 
' 
' 
' 
A 
‘ 
' 
' 
; 
; MODIFIED BY: 

: Thomas N. Hastings. _iomeyetts Version 02 
- original in Link 

' 
‘ 
! 
‘ 
' 
t 
i 
' 
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Use RTLMSG error codes 

Change 186 NORMAL te, ‘i 1B ar “ 21-Nov-77 
Don’ ar memory. TNH 

aove’ Liesvm: GET, LIBSVM “RET. entry points. TNH 30. glene?e 
Change expands ze to B yg Bs ogk 9 of at eet 
allocated so far for validity check in FREE 

Change Ht yt’ files for VAX. pystee build. “DGP “her=f 
Return SS$_NORMAL instead of LIBS NORMALS” TNH 1 “Hy y-7 
Use sertiel allocation from SEXPREG. TNH 29-July- 
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FOR THE USE OR RELIABILITY OF ITS 
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is facility is the only user mode preceeure for allocating 
and deallocation virtual menerys PY havi ng all procedures use 
ct is n 


i AUTHOR: Trevor J. Porter, CREATION DATE: 14-Jan-77; Version 01 


Add new entry point names ThiBSeer .V VA, LIBSFREE_VM. TNH 8-Oct-77 
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IBSVM 16-Sep-1984 01:20:55 VAX-11 Bliss-32 V4.0-742 Page 
5 OLe 127808-13 4 93:98:33 DISKSVMSMASTER:CLIBRTL. SRCILIBVM.B32:1> a8 
; 8 0058 1 ! 02-25 = Don't initialize MINADDRESS. TNH 31-July-78 : 
3 35 059 1! g 3 = Make AST re-entrant. TNH 32Au -78 , ; 
; 60 060 1! | 4 = Update copyright notice and require file names. JBS 22-NOV-78 : 
on | 061 1 ! 2-055 = Run through PRETTY and put in redundent values t : 
; 66 p0es 1! keep the new BLISS compiler happy. JBS 22-NOV-78 ; 
‘7 © 8 1 ! 2-036 = Put in routine headers for the internal routines ALLOCATE : 
3; 664 064 1! and DEALLOCATE, remove false comments and generally fix 3 
; 6 0065 1! up the format to conform to RTL standards. JBS 02-APR-1979 : 
; & BRes 1 ! 2-037 - Make the entry points LIBSS$GET_VM and L BSSFREE_VM, since ; 
, 6GF 0067 1! the string package is taking Over the job of allocatin 3 
; oO 0068 1! and deallocating small amounts of storage. LIBSS$GET_V ; 
; 669 B09 1! will still be sft ted for large amounts of storage; , 
: 70 070 1: LIBSSFREE_VM will free those Large amounts. JBS 02-APR-1979 ; 
wh 0071 1 ! 2-038 - Correct the sans latency check in LIBSSFREE_VM: it was off : 
wy. BRrg 1! by 1. JBS 09-APR-19 FH 
2 0075 1 ! 2-039 - Add some epygente based on the code review. JAS 12-JUN-1979 ; 
; Fe 0074 1 ! 2-040 - Undo edit 937. JBS 27-JUN-1979 3 
ae 0075 1 ! 2-041 = Remove the redundent values added in edit 035; the new BLISS compiler : 
; 0076 1! doesn't need them. JBS 06-SEP-1979 ; 
SE ss 0077 1 ! 2-042 - Add statistics cells for LIBSSTAT_VM, and clean up compare operators 3 
. 0078 1! to use address form when appropriate. JBS 28-O0CT-197 F 
i. 0079 1 ! 2-043 = When calling SEXPREG, ask for at least enough pages to fulfil the : 
; w 0080 |! user's request. Make MAX_ADDRESS 1 greater than the maximum H 
; 8 0081 1! address of Logated so that the compare in LIBSFREE_VM is easier. ; 
3:6 (B82 bobs 1! SBL 14-Aug-1981 3 
rt ie 0085 1 ! 2-044 - Add logic to try to alleviate, if not cure, problem whereby : 
; BS 0084 1! caller gets into a posters of allocating space at Non-AST 3 
;. 0085 1! level and freeing the space at AST level. Eventually all ; 
; 2 8686 0086 1! available space migrates to the AST-level queue and not : 
5 87 0087 1! enough remains available at Non-AST level. Strategy is for 3 
; ws 0088 1! ALLOCATE, before posers ing to a SEXPREG, to repeatedly try to 3 
; 0089 1! er some space from the AST-level queue (if any is there) and : 
; 90 0090 1! LLOCATE itself is runring at Non-AST level. : 
; 9 0091 1! (In response to QAR 893) 3 
; & 0092 1! RKR 12-JAN-1982 : 
3; 693 0095 1 !eeexeeeeenee Start of post VMS Version 3.0 changes **#«* : 
; | 94 0094 1 ! 2-045 - Fix for SPR 11-50075. 3 
> 0095 1! Logic added in previous change has a pissing ELSE clause that ; 
; | «696 0096 1! can cause DEALLOCATE to be called with undefined arguments. 3 
; OF 0097 1! Also fix path through this code whereby it is poss! le for 3 
; 098 1! AST's to be disabled and never renabled. RKR 15-OCT-1982 
; 299 099 1 ! 2-046 - Decrement NEST_LEVEL on error exits. RKR 11-AUG-1983. 
; 100 0100 1 !-- 
3 101 0101 1 
3; 102 0102 1 !<BLF/PAGE> 
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103 ' 

104 ' SWITCHES: 

1 5 ! 

\ SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

1 ' 

} LINKAGES: 

NONE 

i TABLE OF CONTENTS: 

1 . 

1 FORWARD ROUTINE 

1 LIBSGET_VM, ' Allocate virtual memory - interface 
1 ALLOCATE, ' Allocate virtual memory = body 

1 LIBSFREE_VM, ' Deallocate virtual memory - interface 
; DEALLOCATE; ! Deallocate virtual memory - body 


INCLUDE FILES: 


REQUIRE "RTLIN:RTLPSECT'; 
LIBRARY ‘RTLSTARLE'; 


Define DECLARE_PSECTS macro 


System symbols 


! MACROS: 
; NONE 
EQUATED SYSMBOLS: 


WNAAININIR I ROPINIPINININONIDD 2 ee 
SUN —OOONA UNE WN NOUS WWN OC OONAU SWI —O0OMW 


K_VM_MAX_ADR = %X*'40000000', Max. possible address (in control region) 
K-EXPAND-SIZE = ° ' No. of pages to expand program region each call 
K-MAX_NEST_LEV = 4; Max. re-entrant nest level. 


PIPOIPOPOPIPINPIPIPIPONPININININONUPY 
ee Sen duahe ote & AAAI PININIPINONPONOPONUPUNONYNINYDY) 2 2 SS OO 


Must be at least 2 for AST and non-AST level. 
Any more allows some multiplexing from AST level. 


PSECT DECLARATIONS: 
DECLARE _PSECTS (LIB); 
OWN AND GLOBAL STORAGE: 


declare PSECTs LIBS facility 


MIN_ADDRESS : INITIAL (0), 
MAX_ADDRESS : INITIAL (0), 


owest address ever allocated for any nest level 
is special case 

Max address allocated so far for any nest level 

Value is actua Ly the next 

byte after the highest allocated. 


MAMAN BB BEE EEE EWI COCOO 


a ee ieee ee ee eee 
DOCS OCOCOCOCOCOCOCOCCOOCOCOOSCOCOCOCOOOCOOSOO COCO OC OOOO CO OOOO OOO OO OOOO OOOOOOO 
ee ee ee nn nn ee ee eee 
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4 01:20:55 VAX-11 Bliss-32 V4.0-742 Pa s | 
Hn 93:99:32 DISKSVMSMASTER:CLIBRTL. SRCILIBVM.B32:1> (2) 
1 ! 0 is special case. 
i Free memory List heads 
' one List for_each nest level. | 
} l-origin so Oth entry not used. 


Q_LIST_HEAD : VECTOR CK_MAX_NEST_LEV*2 + 2] INITIAL ( REP K_MAX_NEST_LEV + 1 OF (0, 0)), 
i Current re-entrant nest level. 
! Counted up each enrty to LIBSGET_VM or LIBSFREE_VM. 
' Counted down on each exit. 
: Starts at 0, so runs from 1...K_MAX_NEST_LEV. 


NEST_LEVEL : INITIAL (0); 
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: The following statistical cells are reported by LIBSSTAT_VM. 


AL 
BSSGL_GETVM_C : GET VM 


' Number of successful calls to LIB$ 
LIBSFREE_vM 


Ll a INITIAL (0), 

LIBSSGL_FREVM_C : INITIAL (0), ! Number of successful calls to 
LIBS$GL"VMINUSE : INITIAL (0); ! Bytes still allocated 
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: EXTERNAL REFERENCES: 
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85 EXTERNAL LITERAL 

86 LIBS_BADBLOADR : UNSIGNED (ZBPVAL), ! Bad block address 

87 LIB$_BADBLOSIZ : UNSIGNED (ZBPVAL), ! Bad block size 

88 LIBS_FATERRLIB : UNSIGNED (ZBPVAL), ! Fatal error in Library 

34 LIBS_INSVIRMEM : UNSIGNED (ZBPVAL); ! Insufficient virtual memory 


i¢ 
The following are the error codes used in this module: 
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first virtual address of the newly assigned contiguous 
block of bytes. 


IMPLICIT INPUTS: 
Own storage is used to keep track of unallocated pages in the 
program region. The first call after an image is activated 
causes the OWN storage to be initialized. 

IMPLICIT OUTPUTS: 
NONE. 


COMPLETION STATUS: 
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13-808-13be 93:98:33 DISKSVMSMASTER:CLIGRTL. SRCILIBVM.B32: 1° (3) | 
; 199 91 1 GLOBAL ROUTINE LIBSGET_VM ( ! Allocate dynamic virtual memory ; 
; 200 3 1 NUM_BYTES, ! Adr. of longword size in bytes : 
3 4 7 1 BLK_ADR ! Adr. of longword to receive assigned adr. : 
3 = : 
: $08 95 1 | ; 
; 206 38 1 !e¢ : 
; 205 44 : } FUNCTIONAL DESCRIPTION: : 
3 $9 99 1! Allocate n virtually contiguous bytes at an arbitrary place in ; 
; 208 0300 1! the program region and return the virtual address of the first : 
; 209 0301 1! byte. The number of bytes is rounded up so that the smallest ; 
; 210 8 o¢ 1} number of whole quad words (8 bytes) are allocated starting at a : 
ar 4h 05 1! quad word boundary. Procedures cannot count on successive calls : 
3 \ 8 06 1! to allocate adjacent blocks of bytes, since an AST, exception or H 
a 4 we 3 3 called procedure could also have asked for virtual memory. ; 
: 216 0 Be 1 } Usually, the bytes are allocated at the end of the Program : 
3 15 0307 1! region. However, if there is a sufficiently large hole, it will : 
; 216 0308 1! be used instead. Should there not be enough virtual memory : 
3; 217 ts 1! of the required size, the operating system ‘ 
; 218 0310 1! is called to expand the progres region by K_EXPAND_SIZE*512 bytes. : 
; 219 0311 1! The new area is Linked ( eallocating it) into the free List : 
; 0 b316 2 and the requested genory s allocated from the free List. The : 
: 1 315 7! free List is therefore initialized on the first allocaton call. : 
3 ! AST and non-A evels are assigned from errent pools. ; 
sie : ST and ST Level igned f diff l : 
3 324 318 : : CALLING SEQUENCE: : 
; $56 $15 : STATUS.WLC.V = LIBSGET_VM (NUM_BYTES.rlu.r, BLK_ADR.wa.r) ; 
3 $55 320 1 ! INPUT PARAMETERS: 3 
3 $$9 321 1! 3 
3 § 3 § 1! NUM_BYTES is the address of an unsigned longword integer 3 
; 231 3 1? specifying the number of virtually contiguous bytes to ; 
; $38 324 1! be allocated. Sufficient pages are allocated to ; 
, es 325 1! satisfy the request. However, the program should not ; 
; 234 326 1! reference before the first byte address assigned 3 
3 $2 ery 1! (base_address) or beyond the last byte assigned 3 
3 28 1! (base_adr+num_bytes - 1) since it may be assigned to 3 
; HH $ : another procedure. : 
3 +44 333 : OUTPUT PARAMETERS: . 
: rh 4 ! BLK_ADR the address of a longword which is set to the : 
5 4 i 1 3 
3: 246 3 1 3 
3; 245 ; 1 3 
: 26 1 : 
: 24 1 : 
; 248 1 : 
3 4 ' | : 
3 1 ; 
3 1 | : 
3 1 : 
; 1 : 
3 1 | ; 
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SS$_NORMAL ingtcates normal successful co pleston. 
I wee UAL MEMORY when the 
E 


ful 
LIBS_INSVIRMEM ner cates INSUFFICIENT 
program req on was attempted t 
LIBS_BADBLOSIZ indicates ‘BAD ot Ck SI 
No partial assignment is made. 


$ e expanded. 


(0) 


An appropriate number of virtual bytes are removed from the image 
free memory List. If needed the program region is expanded by 
calling the SYSSEXPREG system service. After this is done ASTs are 
disabled for a few instructions to update some OWN storage. 


! 
' 
' 
1 
i 
} SIDE EFFECTS: 
i 
' 
‘ 
' 
' 
' 
BEGIN 
LOCAL 
STATUS 
L_BLK_SIZE; ! size of block in bytes modulo quad word 
L_BLK_SIZE = (..NUM_BYTES + 7) AND ( NOT 7); 


! If the requested block size is zero, give an error indication. 


! Round up to multiple of 8 bytes 


IF (.L_BLK_SIZE EQL 0) THEN RETURN (LIB$_BADBLOSIZ); 


t+ 

! Arg ok, increment re-entrant nest level index and select corresponding 
' nest level gyeye header. ew? this is level 1, since rare to be 
called at AST level while in LIBSGET_VM or LIBSFREE_VM at non-AST 

. Vv — 

le 


NEST_LEVEL = .NEST_LEVEL + 1; 
IF _NEST_LEVEL GTRU K MAX.NEST_LEV 


BEGIN ! Too dee 
NEST_LEVEL = .NEST_LEVEL = 1; 

RETURN (LIBS_FATERRLIB); 

END; ! Too deep 

'¢ 

: Allocate space by removing from corresponding queue for this nest level. 


STATUS = ALLOCATE (.L_BLK_SIZE, .BLK_ADR, Q_LIST_HEAD C.NEST_LEVEL*2]); 


i Now count re-entrant nest Level back down. 
Usually this just goes from 1 back to 0. 


NEST LEVEL = .NEST_LEVEL = 1; 
RETURN (.STATUS); - 
END; ! end of LIBSGET_VM routine 
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; Routine Size: 


311 


000 
52 00000000' FF 9 
50 04 BC a: 
51 50 7, « 
08 1 
50 00000000G 8F 8 
62 D 
04 62 D 
OA 1 
ge D 
50 00000000G 8F Q 
50 62 01 
be A240 D 
0 AC D 
51 D 
0000v CF 93 F 
ot 
66 bytes, Routine Base: _LIBSCODE + 0 


0403 1 


00000000 
00000000 
00000000 


auth 


0000000 
0000000 


00000000 
00000000 
00000000 


00000000 


FnWO 9 *OLOND OO fFONwa—-mMS 


»PSECT 
00000 NIN ADDRESS : 
00004 MAX ADDRESS: 
00008 Q_LISTHEAD: 


LONG 
001 “LONG 
1 “LONG 
O08 - 
0030 NEST.LEVEL: | 
00034 L1BSSGL_GETVM_C: 


mG 
00038 L1BSSGL_FREVM_C: 
0003C LIBS$GL_VMINUSE: 

LONG 


~EXTRN 
~EXTRN 


-PSECT 


1$: INCL 


28: 
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sees 8 
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IB$_BADBLOADR, LIB$_BADBLOSIZ 
LIBS$~ “FATERRLIB, LIBS_INSVIRMEM 


_LIBSCODE,NOWRT, SHR, PIC,2 
Lyset yn Save R2 


NEST_L 
i, Shum. BYTES 
> RO, C_BLK_ gr5e 


#LIB$_BADBLOSIZ, RO 


NEST_LEVEL 
west. LEVEL, #4 


NEST LEVEL 
og FATERRLIB, RO 
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1BSVM 1B-se -1984 01:20:55 VAX-11 Bliss-32 V4.0-742 Page 8 
Paints en8ep- 188 93:88:83 | BN blwGnaSfeRcct tagrs “ercacieve.es20%%" ca$ 
s 313 404 1 ROUTINE Sy pCaTe ( ! Internal allocation subroutine 
; 3146 405 1 SIZE ' Number of bytes to allocate 
; 315 406 1 ADDRESS i Store base address here 
; 16 407 1 LISTHEAD i Free list for this level 
3 ’ 4 1 ds 
; i$ d : les 
; Y ot : } FUNCTIONAL DESCRIPTION: 
; § 18 ii Allocate storage from the given list. If the List does not 
$ 414 1! contain any piece big enough to satisfy the request, expand 
; ¢ oi? ! the program region. 
; 6 a? i INPUT PARAMETERS: 
: 8 419 1 i SIZE.rl.v The number of pytes to allocate. This is always 
3 g 420 1! a aul tigte of 8. 
g 0421 1! LISTHEAD.ra.v The beginning of the List of free blocks at this 
; 1 04 ¢ ,? reentrancy level. This ‘ist is Linked by its 
3 ¢ Bs ? : first lLongword. 
; 4 Oe 5 | | QUTPUT PARAMETERS: 
: 3 be ; : ADDRESS.wa.r The address of the block allocated, or 0. 
: 338 0429 1 | IMPLICIT INPUTS: 
; 339 0430 1! 
5 0 0431 1! NONE 
3; 341 oh 
: rx: 4 1 ! IMPLICIT OUTPUTS: 
344 be8$ | i NONE 
> 345 436 1 | ; 
é re be ; ! COMPLETION STATUS: 
: 348 be 9 1 SS$_NORMAL indicates mormal successful completion. 
3 49 0440 1! LIBS_INSVIRMEM indicates ‘INSUFFICIENT VIRTUAL MEMORY’ when the 
; 20 re : : program region was attempted to be expanded. 
; 38 bee§ 1 | SIDE EFFECTS: 
; 35 0444 1! An appropriate number of virtual bytes are removed from the image 
3: 354 0445 1! free memory list. If needed the program region is expanded by 
3; 355 pees ’ calling the SYSSEXPREG system service. 
: 2§ 48 1 ie 
: 6 ret; : BEGIN 
; 51 
3 1 £36 LOCAL 
3 § 45 GOT_SPACE, ! Logical to record 
: 54 ! whether we got space 
3 455 ! from other queue 
3 2$ NEWBLOCK : REF VECTOR C ' Current block pointer 
; 3 NEXTBLOCK : REF VECTOR ). i Next block pointer 
3 3 LASTBLOCK : REF vec oR " ! Previous block pointer 
3 45 MEMLIMITS : VECTOR C2), ‘ args to SEXPREG 
3 460 AST_STATUS; ! AST enable state 
| 
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pete! 18: a 1382 9}: 98: % DISKSVMSMASTER: CLIBRTL. §RCILIBVM.B32, 79° 
me MG 
; if ces i The following loop is terminated by one of several RETURN statements. 
: ge “es 5 
; 03 u6 WHILE -1 DO 
: r re ie LASTBLOCK = .LISTHEAD; ! Initially at top of free List 
: 379 £36 i The following Loop scans down the free List looking for a free block 
; 380 71 ! which will satisfy the request. If it finds one i deal locates it 
3 1 tg ! and returns. Otherwise it falls into the next section of code which 
3 ¢ oi7 ; will attempt to expand the program region. 
: 0475 3 
3 Re pore WHILE (NEWBLOCK = .LASTBLOCK (OJ) NEQA 0 DO ' Follow down free list 
; a8 rf 4 ? BEGIN 
: 388 bi78 5 IF (.NEWBLOCK (1) EQLU .SIZE) ' Look for suitable free block 
; 389 480 4 THEN ! Exact size match 
; 390 0481 BEGIN 
: 391 rt (4 LAS TEL OCK (0) = @vocK (0); C0]; ! So last points where this one pointed 
; 4 04 ADDRESS = NEWB 
; 39 04 CiBSseL _GETVM_C = K Tedéoe _GETVM_C + 1; 
3 394 485 LIBSSGL” VMINUSE = .LIBSS$GL~VMINUSE : enze: 
3; «395 04 RETURN t38$ NORMAL) ; ' and we are done 
: 39 $688 4 ‘ 
: 398 0489 5 IF (.NEWBLOCK [1] GTRU .SIZE) ' Larger than requested 
: i60 ba9% é BEGIN 
; 401 49 Ss 
; 40 049 ! We have sound 9 block larger than the size requested. Divide it in 
; 40 Bead ! two, with the front used to satisfy the request and the back remaining 
: the Bea2 on the free List. 
> 406 499 NEXTBLOCK = NEWBLOCK C01, + ggizes 
; 407 98 oft ees 9 »NEWBL 
; 408 0499 = “NEWBL i - SIZE; 
; ret bene ae ue Sextet, 
+ 411 0308 GETVAYE a 0 ae _GET +1; 
: 4g 050 LIesscty MINUSE = "Li BS$GL~ ~VRINU USE + erze: 
3; «41 ee RETURN ws "NORMA L); ' and we are done 
oe BR ee 
: 2i8 268 4 LASTBLOCK = NEWBLOCK (0); ! When not suitable this block becomes previous block 
3 cis 509 END; i of while Loop 
: 41 10 3 t+ 
: 420 511 ! If we reach this point we know that there is not enough contiguous 
: 621 216 ! space in the queue porated to 7 the current queue header. Before 
3; 6 $ 51 ! resorting to an SEXPREG we chec 
; 4 31 : 1, Is there any space in the AST~Level queue ? 
: 6246 15 ! - Are we ourselves at non-AST level ? 
3; 425 318 ' If both are true, then we may be able to rtenslee our problem by 
; 426 51 ! moving some space from the A Tolevel queue to the Non-AST level queue. 


Ll 
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1bose 73007138 93: 49; % DISKSVMSMASTER: CLIBRT TL. SRCJLIBVM.B32;1° (4) 

! If we are at non-AST level (NEST_LEVEL = 1) then we don't have to 

! worry about messing ° some iy AS ig Queue manipulation. Rewevers 
v 


i we mus protect ourselves from being interrupted dur cal 
; operat on of removing a queue entry "tren the AST-level queue. 


ng the crit 


GOT_SPACE = ! Initialize to got no space 
IF Fea .0_LIST O ubaD [4] NEQ 0 ) 


BEGIN ! There was space in AST-Level 


"disable AST's while we figure out if we are at AST level and 
i _if so, while we pull off Ist entry of AST-level queue. 


AST STATUS = SSETAST (ENBF ‘, 20); ! Disable ASTs 
en -Q_LIST_HEAD [4] NEQ ' Still avail. after 


REEL EEE EEE EEE = 
=DOBNONEWR=OOON 
DOODOSCOSCSOOOOOOOCO 


; | ; 
i : 
3 5 4 3 
3 § 3 : 
; 4 3 
3 3 4 3 
3 & 5 
5 0 4 5 
; 1 4 : 
§ 5 : 
> 44 0534 4 i disabling AST's ? : 
3 4446 535 5 BEGIN Safe to proceed 3 
3 445 5 $ g IF ( NEST evel EaL 1 3 
; 446 5 THEN : 
3 447 0538 6 BEGIN ! We’ re of non-AST Le 3 
; 4468 3278 6 MEMLIMITS Q_LIST_HEAD 3; |! addr of 1st chunk 3 
; 449 540 6 MEMLIMITS (1Jj = COREALTALTS t6 + 4) ; ! size of chunk $ 
: 450 0541 6 Q LIST HEAD [4] = — _LIST_HEAD £4] ; ' ist off head ; 
3; «(451 O30§ GOT_SPACE = 1 ; ! record fect a got space ; 
3 $28 054 END; ! We're at non-AST Level 3 
7. . : 
: $22 B28 : Renable ASTs whether we succeeded or failed to get space. : 
5 437 0848 5 IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST ( ENBFLG = 1) ; : 
; rt B2e0 ; iF 500Te SPACE ! If we succeded : 
; ret b22§ ? BEGIN ! Dump space in out pool of avail. space 3 
: 46 0554 6 ~~ this chunk of space on non-AST level queue as if ; 
3 ree; beee 6 i. we had gotten it from SEXPREG. ; 
: 298 b22$ § if ( NOT DEALLOLATE (¢ ree TS 5 to}: ' size of chunk : 
; 46 0558 7 -MEMLIM ! address of chunk 3 
3 rhe: 227 : eee TESTHEAD) : 
: 420 361 § RETURN (LIBS_FATERRLIB) ; ! Should never happen 3 
: 47 68 6 i Must back out the modifications made to the statistic ; 
3 rth +e ° i. cells by DEALLOCATE. 

; 475 366 6 LIBS$GL_VMINUSE = .LIBS$GL_V MINUSE ¢ .MEMLIMITS C1) ; 

3 ore 56 LIBS$GL ~FREVM _C = .LIBSSGL_FREVM 1 

: 467 368 EN Dump space in our pool “bt gueti. space 

: $78 28 ? =o ! , to proceed 

; 4 371 BEGIN : Face Cieappoored between Ist and 2nd look 

: 481 1 ! Ree nable ast's egy were enabled 

3; 4 ¢ 57 ir ( eAST_STA Tus’ Eau § WASSET) meHEN $SETAST ( ENBFLG = 1) ; 

: 48 0574 4 END ; ! Space disappeared between 1st and 2nd look 
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END ; ! There was space in AST-Level 


IF (NOT .GOT_SPACE) ! If code above failed to produce more 
THEN ! space 


BEGIN ! do SEXPREG 


At this point we have reached the end of the free 

penecy List without finding a block of required size and no more can 
be Liberated from the AST-level queue. 

Thus, we expand the address space and attempt to 

allocate from additional virtual memory. 

If we only q°t partial allocation, use what we can get. 

MEMLIMITSLO $ the first virtual address assigned, 

and MEMLIMITSL1] is the highest virtual address in last page assigned. 
Both are -1 if nothing was able to be assigned. 


SEXPREG (PAGCNT = (IF .SIZE LSSU K_EXPAND_SIZE*512 ghee KE 
RETADR = MEMLIMITS); 
IF (.MEMLIMITS CO] LSS 0) 
RETURN (LIBS_INSVIRMEM) ; 


+ 


XPAND_SIZE 
1ZE/5T2)+1), 


! Unsuccessfully expanded program region 
+ 
Now disable ASTs and update minimum and maximum addresses ever allocated. 
AST_STATUS = S$SETAST (ENBFLG = 0); 
IF ((.MEMLIMITS COJ LSSA .MIN_ADDRESS) OR (.MIN_ADDRESS EQL 0)) THEN MIN_ADDRESS = .MEMLIMITS (0); 
IF ((.MEMLIMITS C1] GTRA .MAX_ADDRESS) OR (.MAX_ADDRESS EQL 0)) THEN MAX_ADDRESS = .MEMLIMITS [1] + 
IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 
‘+ 
! Deallocate the space acquired, thus putting it in the free List. 
Don't disturb the statistics cells. 
IF ( NOT DEALLOCATE ((.MEMLIMITS C1] - .MEMLIMITS COJ) + 1, .MEMLIMITS (0), LASTBLOCK (0])) 
RETURN (LIBS_FATERRLIB); ! should never happen 


LIBSSGL_VMINUSE = .LIBSSGL_VMINUSE + (.MEMLIMITS C1] - .MEMLIMITS (OJ) + 1; 
LIBSSGL_FREVM_C = .LIBSSGL_FREVM_C - 1; 
ND; ! do SEXPREG 


'¢ 
; Now we loop back to search the free List again 


END; ! Of WHILE -1 loop 


RETURN (LIBS_FATERRLIB); 
END; ! of ALLOCATE routine 
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AST_STATUS, #9 
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D3 DDB i 


DRESS 
Tes4" MAX_ADDRESS 


Ast ‘HEM INITSs4, MAX _ADDRESS 


,R6> 
Mp “MEAL IMITS#4, R2 


“onomn Mm 


siiessst VMINUSE, RO 
Lt ieeeR EY VMINUSE 


m 
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0573 


0577 
0594 
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; 248 6 1 1 GLOBAL ROUTINE LIBSFREE_VM ( ! Deallocate virtual menory 
; 54 6 § 1 J $ ! Adr. of longword containing size in bytes 
; 548 06 ; BLK-ADR_ADR i Adr. of longword containing adr. of block 
; rf 635 1 

: 2 ° § 1 !+¢ 

3 248 ? } + FUNCTIONAL DESCRIPTION: 

; 550 be 5 1! Deallocate n virtually contiguous bytes starting at the 

> 551 640 1! specified virtual address. The number of bytes actually 

; 226 0641 1! deallocated is rounded up so that the smallest number of whole 
3 22 ak: 1; quadwords are de-allocated. Numerous error checks are made to 

; 554 645 1! make sure that the block being returned is a legitimate free 

; 555 0644 1! area. 

$ 336 0645 1! 

3 Oo7 Bose 1 ! CALLING SEQUENCE: 

; 558 647 1! 

; 559 0648 1! CALL LIBSFREE_VM (NUM_BYTES.rlu.r, BLK_ADR_ADR.ra.r) 

3 360 0649 1! 

3 30) 0650 1 ! INPUT PARAMETERS: 

; 206 0651 1! 

; 56 8636 1! NUM_BYTES is the address of an unsigned longword integer 

; 564 0655 1! pooc tying the number of virtually contiguous bytes to 
; 20? Beee : } be deallocated. 

; 567 0656 1! BLK_ADR_ADR is the address of a Longyerd containing the address 
; 568 0657 1! of the first byte to be deallocated. 

; 569 0658 1! 

; 570 0659 1 ! OUTPUT PARAMETERS: 

3 Srl 0660 1! 

; Hes 0661 1! NONE . 

RE 0662 1! 

; 574 0665 1 ! IMPLICIT INPUTS 

; 575 0664 1! 

; 576 0665 1! NONE 

3 «OTe 0666 1! 

; 578 667 1 ! IMPLICIT OUTPUTS 

; 579 668 1! re 

; 580 0669 1! The pages are deallocated by putting them in the List maintained 
; 28) pore ! for LIBSGET_VM to search before calling SEXPREG. 

: $88 $7 ' COMPLETION STATUS: 

; 585 674 1! SS$_NORMAL indicates normal successful completion. 

: 286 at? ' LIBS_BADBLOADR indicates BAD BLOCK ADDRESS 
; «588 0677 1 ! SIDE EFFECTS: 

; 589 678 1! 

; 590 679 1! Puts the indicated block back on the the image free storage 

; «591 ret] 1! list 

; 3g 681 1! 

> oe 6 ¢ 1 !- 

; 594 6 1 

3; «595 684 

3 38 685 

; «#59 6 § LOCAL 

; 598 6 STATUS, ! Return status 


BEGIN 
| 
| 
J 
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path or188t S88 8g etna fatT  eacaievm.es20%% cd; 
; 599 0688 L_BLK_SIZE; 

; 600 ret: ne 
; 601 690 ‘+ 
; oR $3) a Round up size to be a multiple of quadwords 
; ein 638 L_BLK_SIZE = (..NUM_BYTES + 7) AND ( NOT 7); 
; 60: 695 ! Perform various checks for the validity of the request. 
: BOR beer 5 
3 o” 8228 IF (((,.BLK_ADR_ADR + .L_BLK_SIZE) GTRA .MAX_ADDRESS) OR (..BLK_ADR_ADR LSSA .MIN_ADDRESS)) 
3 61) site RETURN (LIB$_BADBLOADR) 
3 ol¢ 0701 
; «661 t4it4 1+ 
; 614 70 i Arg ok, increment re-entrant nest tpyet index ene select corresponding 
3; 615 0704 i nest level queue header. Yous' ly this is level 1, since need to be 
; 616 0705 ! called at AST level while in LIBSGET_VM or LIBSFREE _VM at non-AST 
; 617 thie) i [evel. 
; 618 07 - 
3; 619 0708 NEST_LEVEL = .NEST_LEVEL + 1; 
; 620 0709 
3 Ge) 0710 IF .NEST_LEVEL GTRU K_MAX_NEST_LEV 
; os¢ 0711 THEN 
; 6 orig erel ! Too doe eee 
3; 624 071 NEST LEVEL LEVEL - 1; 
3; 625 0714 RETURN (LIB. ene eaat 1B); 
3; 626 0715 2 END; ! Tod deep 
3 og? 0716 § 
; 628 0717 '¢ 
3 6¢° 444 § z Deallocate space by merging into the corresponding queue for this nest level. 
; 631 0720 STATUS = DEALLOCATE (.L_BLK_SIZE, ..BLK_ADR_ADR, Q_LIST_HEAD C.NEST_LEVEL*2)); 
; £34 8756 ! Now count re-entrant nest level back down. 
; os Ors? § } Usually this just goes from 1 back to 0. 
; 636 0725 § T_ LEVEL = .NEST_LEVEL = 1; 
3 637 0726 MES URN (. STATUS); 
; 638 0727 1 END; ! of routine LIBSFREE_VM 
0004 00000 -ENTRY LIBSFREE_VM, Save R2 3; 0631 
52 00000000' FF a Banas wet LEVEL, Re 3 
50 04 C 7 ¢1 0000 ADDL #7, GNUM_ BYTES, RO 3; 0693 
51 0 7 cB 000 BICL3 #7. RO, C_BLK SIZE ; 
50 08 &8C 2 01 ADDL3 L_BLK SIZE, @BLK_ADR_ADR, RO > 0698 
D4 Ad 9 D1 0001 CMPL =e RO, UARK TADORE SS ; 
07 1A 00018 BGTRU 1$° 3 
DO = A2 08 6C 8) bA38 CMPL @BLK_ADR_ADR, MIN_ADDRESS : 
oe F 0 BGEQU 3 
50 00000000G 8F »? ° : 1$: neve #LIBS_BADBLOADR, RO ; 0700 
62 06 C 2$ INCL NEST_LEVEL ; 0708 


; Routine Size: 


639 


50 


82 bytes, 


0728 1 


5 i 

2 

50 000000006 $f 

62 o 

+3 A240 

ce 

0000v CF 03 
62 
Routine Base: _LIBSCODE + 
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CMPL y ST_LEVEL, #4 
BLEGU 

DECL #NEST_LEVEL 

MOVL re FATERRLIB, RO 
ASHL , NEST_LEVEL, RO 
PUSHAL Q LIST HEA otf 64 
PUSHL af ABR 

PUSHL rs 

CALLS bs° LEALLOCATE 

DECL NEST_LEVEL 


3 
R: 


2.V 


cl 


- SRCILIBVM.B32; 
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16 
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Petes 12-808- 1382 93:99:32 DISKSVMSMASTER: CLIBRTL. SRCILIBVM.B32:1> (7) 

>; 641 729 1 ROUTINE DEALLOCATE ( ! Internal routine to actually deallocate ; 
: ots 750 1 SIZE ! The number of bytes to deallocate : 
; 64 731 1 ADDRESS i Base of the area to deallocate | : 
; 644 7 § 1 LISTHEAD ! List to merge this area into : 
; 645 7 1 d= : 
; ong 734=«O1 3 
; 64 735 1 S44 : 
; 648 7 § 1 ! FUNCTIONAL DESCRIPTION: ; 
; 649 7 1 $ | ; 
3 $20 fi 3 ! Deallocate storage onto the given List. | ; 
3 $26 Brey 1 ! INPUT PARAMETERS: : 
; 65 741 +15! : 
> 654 oes , SIZE.rl.v The number of eytes to deallocate. This is : 
; 655 07435 1! alvsys a multiple of 8. : 
; 656 0744 1! ADDRESS.ra.r The address of the block to be deallocated. | : 
; 657 0745 1! LISTHEAD.ra.v The beginning of the List of free blocks at this : 
; 658 Org 1: reentrancy level. This list is linked by its | : 
; 659 0747 1! first longword. ; 
; 660 0748 1! ; 
; 661 0749 1 ! OUTPUT PARAMETERS: | : 
; O96 0750 1! : 
; 66 0751 1! NONE : 
; 664 8736 1! : 
; 665 0753 1 ! IMPLICIT INPUTS: : 
: 666 0754 1 | | : 
: 667 0755 1! NONE ; 
; 668 0756 1! ; 
; 669 0757 1 ! IMPLICIT OUTPUTS: : 
: 670 0758 1! : 
; 671 0759 1! NONE ; 
; 67 0760 1! ; 
: 67 0761 1 ! COMPLETION CODES: ; 
: 67% 76g 1 | | ; 
; 675 0765 1! SS$_NORMAL The deallocation was successful ’ 
; 676 0764 1! LIBS_BADBLOADR The block agereen/ vengt® was bad, since it : 
; 677 0765 1! conflicts with the existing free List. ; 
; 678 8708 1! ‘ 
3; 679 0767 1 ! SIDE EFFECTS: . 
: 680 378 1! : 
; 681 76° 1! NONE ° 
3 ose 0770 1! ; 
; 68 0771 1 !-- : 
; 684 re j ; 
; 685 77 BEGIN . 
3 one 774 ; 
; 68 775 OCAL 3 
; 688 77 NEWBLOCK : REF VECTOR [ ' Current block pointer 3 
> 689 77 NEXTBLOCK : REF VECTOR 1. i Next block pointer ; 
3 oy ae LASTBLOCK : REF VECTOR : ' Previous block pointer : 
; 6% 780 LASTBLOCK = .LISTHEAD; ' Previous block initially the Listhead 3 
: $37 r 1 ; NEWBLOCK = .ADDRESS; ' Current block is to be inserted é 
: '¢ Py 
3; 695 7 : ' Follow down the free List until we reach the end, or the place to 3 
3 696 7 ' insert this block. The free List is kept sorted so that adjacent 3 
3; «69 785 ! free areas can be merged together. : 


P. 
12-868: 1986 93:99:38 | BNksumBuadfencct taer 4 


wo 


oO 
~o 
oo 


WHILE ((NEXTBLOCK = .LASTBLOCK [0]) NEQA 0) DO 
BEGIN 


—~ 


FAVLSS 


IF (NEWBLOCK (0) LEQA NEXTBLOCK [0]) 
BEGIN 


'¢ 
This is the position for insertion of the block in the free list. 


SISA 
~ 


tHe CO] + .SIZE) EQLA NEXTBLOCK (0J) 


; ? : 
.§ 3 
: 72 PA : 
. 2 4 ; 
” 2 4 3 
Pom 4 3 
: 798 4am 8 
: 711 135 4 : 
3 at} 00 ! Here we compact with next block 3 
s fi 01 SE OBL OcK £0} = go fl opt 9}: : 
; 716 0 NEWBLOCK = .NEXTBLOCK [1] + .SIZE; F 
: 715 80 EN ; 
3 rig 804 4 ELSE ; 
s fri 805 BEGIN ; 
; 718 Bane ‘+ 3 
3 ahs Babe i If this block overlaps the next free block, we have an error. : 
; 731 809 : 
: § 0810 IF ((NEWBLOCK CO] + .SIZE) GTRA NEXTBLOCK (0) THEN RETURN (LIB$_BADBLOADR) ; : 
; 134 OBt¢ ! BAD BLOCK ADDRESS code ; 
3; 725 081 NEWBLOCK £9] = | aaa (0); i else set pointer and size since no 3 
3 i $ Sate i yaa E; i forward compaction needed : 
: 728 0816 4 ; 
; 9 0817 ? aspen CO] EQLA (LASTBLOCK [0] + .LASTBLOCK (1))) : 
: 731 $819 ". we compact with previous : 
; ees 0820 BEET BLOCK £0} = .NEWBLOCK p92: : 
$ it OB 1 2 SAS TOLER $1 = .NEWBLOCK » “uns torock C1); : 
3; 735 OB : 4 ELSE ! No backward compaction but... ; 
3 g o8 : ; BEGIN ' must check that block to : 
: 4 5 $ IF (NEWBLOCK CO] LSSA (LASTBLOCK CO] + .LASTBLOCK [1])) ! deallocate is not partially in ; 
: me O8 3 RETURN (L1B$_BADBLOADR) ; ! previous hole--failure if so : 
: 7% 0 LASTBLOCK CO) = NEWBLOCK (0); ! If ok previous points to new one. : 
3 i 83 1 ? END; i and we are done compacting : 
: 745 o8 4 4 LIBSSGL_FREVM_C = .LIBSSGL_FREVM_C ; 
> 7% 4 4 LIBSSGL” VM NUSE = .LIBS$GL “VMINUSE - - Eze: : 
; 7% 5 4 A URN TSS$_NORMAL) ; : 
= [a 7 
i 730 Q LASTBLOCK = NEXTBLOCK (0); ! Not there yet so last block is one just tested : 
: 75 0 END; ! of WHILE Loo ; 
: 58g 1 : 


; 
i 
és 
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IF (NEWBLOCK CO) LSSA (LASTBLOCK [0] + .LASTBLOCK [1])) 
RETURN (LIB$_BADBLOADR) 


ELS 
BEGIN 


Check to see if the new block goes right after the last old block. 
If it does we can just extend the last old block. 
IF (NEWBLOCK (OJ EQLA (LASTBLOCK [0] + .LASTBLOCK ([1])) 


LASTBLOCK C1) = .LASTBLOCK (1) + .SIZE 
ELSE 


'¢ 
Otherwise, jus* out the new block on the end of the free List. 


$17 


BEGIN 
NEWBLOCK iF = 0 
J = NEW Biock (0); 


NEWBLOCK 
LASTBLOCK C 
END; 

LIBSSGL_FREVM_ C = .LIBSSGL_FREVM C 


LIBSSGL “VMINUSE = ‘LIBSSGL ~VRINUSE - enze: 
TURN TSS$_NORMAL) ; 


! of DEALLOCATE routine 


000C 00000 DEALLOCATE: 
WORD Save 


0C AC 00 00002 MOVL seve Bes > asTeLock 
08 AC 00 00006 MOVL ADDRESS, NEWBLOCK 
rH p ap 1$ ROVE (LASTBLOCK), NEXTBLOCK 
; D F CMPL §§ NEWBLOCK, NEXTBLOCK 
8 1A 00 le BGTR 
04 AC C1 0001 ADDL3 SIZE, NEWBLOCK, R2 
5 D| 19 CMPL R2, NEXTBLOCK 
0¢ 1¢ BNEQ 2 
63 D If MOVL. (NEXTBLOCK), (NEWBLOCK) 
04 Ac f ADDL3 ze, 4 G(NEXTBLOCK), 4 (NEWBLOCK) 
A il 8 BRB 
F 1A A 28 BGTRU 7$ 
3D C MOVL NEXTBLOCK, (NEWBLOCK) 
04 Ne D F MOVL. SIZE, 4(NEWBLO 
4 aoc 3$ ADDLS 4 (LASTBLOCK), LASTBLOCK, R2 
51 D1 00039 CMPL NEWBLOCK, R2 


-o 
ae 


-S$ep-1984 VAX-11 Bliss-32 V4.0-742 

1$-sep-1984 9b e0 gy csvmeaastenccy tanta “ercaurevm.e32°4°° 
! The block to deallocate is beyond the Last hole. 
i. It must not start within that last hole. 


: 


Hersen-1986 01:90: 


; 788 0876 1 END ! of LIBSVM module 

; 789 0877 1 

; 790 0878 0 ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

> LIBSDATA 64 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC ALIGN(2) 
;  _LIBSCODE 633 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

: cocccece Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 00:00.8 


55 VAX=11 Bliss-32 V4.0-742 
6  DISKSVMSMASTER: CLIBRTL.SRCILIBVM.B32; 
OA 1 C BNEQ = 4$ 
60 1D OVL. (NEWBLOCK), (LASTBLOCK) 
04 A 046 «Al ( i ADDL2 4(NEWBLOCKS, 4(LASTBLOCK) 
A: 1 46 BRB 11$ 
1F 00048 4$: BLSSU rs 
¢f 11 0004A BRB 10$ 
50 33 06 ac 5$: MOVL NEXTBLOCK, LASTBLOCK 
52 59 06 Ad Ci 1 68: ADDL3 4(LASTBLOCK) LASTBLOCK, R2 
1 01 é CMPL NEWBLOCK, R2 
a 3 BGEGU 
: VL L La L . 
50 000000006 &F 9 9005 7$ MOV #LIBS$_BADBLOADR, RO 
07 iF 63 8S: BNEQ 9$ 
04 Ad 04 AC ¢ 6 ADDL2 SIZE, 4(LASTBLOCK) 
0A 11 00 6A BRB 11 
61 D4 0006C 9S: CLRL = (NEWBLOCK) 
04 Al 04 AC D0 O06F MOVL SIZE, 4(NEWBLOCK) 
0 51 00 00073 10$:  MOVL #$ NEWBLOCK, (LASTBLOCK) 
00000000" EF D6 00076 11$: INCL. LIBS$GL_FREVM_C 
00000000' EF 04 aC C oo7¢ SuBL2 SIZE, LTBSSGL_VMINUSE 
04 00087 RET 
; Routine Size: 136 bytes, Routine Base: _LIBSCODE + 01DC 


i 9} 


i ee | 


ise oh-1984 93:99:30 DI SKSVMGMASTERS LL aRTCSRCILIBVM.B32¢4%° (9) 


eo 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:LIBVM/OBJ=0BJ$:LIBVM MSRC$:LIBVM/UPDATE=(ENH$:LIBVM) 


; Size: 
: oe . 61 . Ha } 64 data bytes 


; Line 
: Lexenes /CPU-Rin: 2788 

; Memor ry Used : 132 pages 
; Compilation Complete 
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